home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / PowerMacOberon feb96 / Source / Input.Mod (.txt) < prev    next >
Oberon Text  |  1995-01-20  |  706b  |  26 lines
  1. Syntax10.Scn.Fnt
  2. StampElems
  3. Alloc
  4. 20 Jan 95
  5. MODULE Input;    (* mf 9.12.92 *) (* mah 
  6.     IMPORT
  7.         SYS:=SYSTEM, Macintosh, Sys;
  8.         TimeUnit- : INTEGER;
  9.     PROCEDURE Available*(): INTEGER;
  10.     BEGIN    RETURN Macintosh.Available()
  11.     END Available;
  12.     PROCEDURE Read*(VAR ch: CHAR);
  13.     BEGIN    Macintosh.Read(ch)
  14.     END Read;
  15.     PROCEDURE Mouse*(VAR keys: SET; VAR x, y: INTEGER);
  16.     BEGIN    Macintosh.Mouse(keys, x, y)
  17.     END Mouse;
  18.     PROCEDURE SetMouseLimits*(w, h: INTEGER);
  19.     BEGIN    Macintosh.SetMouseLimits(w, h)
  20.     END SetMouseLimits;
  21.     PROCEDURE Time*(): LONGINT;
  22.     BEGIN RETURN 50*Sys.TickCount () DIV 3        (* convert to milliseconds *) 
  23.     END Time;
  24. BEGIN TimeUnit:=1000
  25. END Input.
  26.